home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
msgbox
/
_msgbox.frm
< prev
next >
Wrap
Text File
|
1995-05-08
|
20KB
|
578 lines
VERSION 2.00
Begin Form MsgBxGen
BorderStyle = 1 'Fixed Single
Caption = "MsgBox Editor"
ClientHeight = 4545
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 8220
Height = 4950
Icon = _MSGBOX.FRX:0000
Left = 1035
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 4545
ScaleWidth = 8220
Top = 1140
Width = 8340
Begin CommandButton ExitCtl
Caption = "Exit"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 12
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 6600
TabIndex = 14
Top = 3960
Width = 1455
End
Begin CommandButton CopyCtl
Caption = "&Place Code on Clipboard"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 3120
TabIndex = 13
Top = 3960
Width = 3375
End
Begin CommandButton EditCtl
Caption = "&Edit Message Box Title and Contents"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 9.75
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 3120
TabIndex = 12
Top = 3360
Width = 4935
End
Begin Frame Frames
Caption = "&Default Button Option"
Height = 975
Index = 2
Left = 3000
TabIndex = 8
Top = 2280
Width = 5055
Begin Label DefaultLabel
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "&3rd"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 512
Left = 3360
TabIndex = 11
Top = 360
Width = 1455
End
Begin Label DefaultLabel
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "&2nd"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 256
Left = 1800
TabIndex = 10
Top = 360
Width = 1455
End
Begin Label DefaultLabel
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "&1st"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 0
Left = 240
TabIndex = 9
Top = 360
Width = 1455
End
End
Begin Frame Frames
Caption = "&Code Options"
Height = 1215
Index = 3
Left = 6480
TabIndex = 17
Top = 120
Width = 1575
Begin OptionButton CodeOpt
Caption = "Function"
Height = 255
Index = 1
Left = 120
TabIndex = 23
Top = 720
Width = 1215
End
Begin OptionButton CodeOpt
Caption = "Procedure"
Height = 255
Index = 0
Left = 120
TabIndex = 7
Top = 360
Value = -1 'True
Width = 1215
End
End
Begin Frame Frames
Caption = "&Button Display Options"
Height = 2055
Index = 1
Left = 3000
TabIndex = 16
Top = 120
Width = 3375
Begin OptionButton ButOpt
Caption = "Retry and Cancel Buttons"
Height = 255
Index = 5
Left = 120
TabIndex = 18
Top = 1560
Width = 2775
End
Begin OptionButton ButOpt
Caption = "Yes and No Buttons"
Height = 255
Index = 4
Left = 120
TabIndex = 22
Top = 1320
Width = 2775
End
Begin OptionButton ButOpt
Caption = "Yes, No, and Cancel Buttons"
Height = 255
Index = 3
Left = 120
TabIndex = 21
Top = 1080
Width = 2775
End
Begin OptionButton ButOpt
Caption = "Abort, Retry, and Ignore Buttons"
Height = 255
Index = 2
Left = 120
TabIndex = 20
Top = 840
Width = 3135
End
Begin OptionButton ButOpt
Caption = "Ok and Cancel Buttons"
Height = 255
Index = 1
Left = 120
TabIndex = 19
Top = 600
Width = 2535
End
Begin OptionButton ButOpt
Caption = "Ok Button Only"
Height = 255
Index = 0
Left = 120
TabIndex = 6
Top = 360
Value = -1 'True
Width = 2175
End
End
Begin Frame Frames
Caption = "&Icon Display Options"
Height = 4335
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 2775
Begin PictureBox IconPic
BorderStyle = 0 'None
Height = 1095
Index = 0
Left = 1440
ScaleHeight = 1095
ScaleWidth = 1215
TabIndex = 5
Top = 3120
Width = 1215
Begin Label IcPicLabel
Caption = "No Icon Displayed"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Index = 0
Left = 240
TabIndex = 24